home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Shell Folders 1.xpl < prev    next >
Text File  |  2003-11-19  |  2KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "DATA 1"="Folders (*.*)|*.*"
  4. "COUNT"="2"
  5. "UIPATH 1"="System\File System\Folders\System"
  6. "UIPATH 2"="Appearance\Start Menu\Common"
  7. "NAME"="Start Menu Folders"
  8. "VERSION"="1.01"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Start Menu"
  11. "TEXT 2"="Programs"
  12. "DESCRIPTION 1"="Here you can specify where the Start Menu folders are located."
  13. "DESCRIPTION 2"="The "Start Menu" entry refers to the icons that appear at the top of the Start Menu (not Windows XP Start Menu), and the "Programs" entry refers to the options in the "Programs" / "More Programs" submenu of the Start Menu."
  14. "DESCRIPTION 3"="NOTE: If the Programs entry does not point to a folder called "Programs" in the Start Menu entry, then the icons hown for Start Menu folders will be the standard Windows folder icons."
  15. "DESCRIPTION 4"="This is a per-user setting."
  16. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=""
  20.  
  21. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  22. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  23. sV1="Start Menu"
  24. sV2="Programs"
  25.  
  26. Sub Plugin_Initialize 
  27.  s=RegReadValue(sP1&sV1)
  28.  Call SetUIElement(1,s)
  29.  
  30.  s=RegReadValue(sP1&sV2)
  31.  Call SetUIElement(2,s)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  s=GetUIElement(1)
  36.  Call RegWriteValue(sP1&sV1,s,1)
  37.  Call RegWriteValue(sP2&sV1,s,1)
  38.  
  39.  s=GetUIElement(2)
  40.  Call RegWriteValue(sP1&sV2,s,1)
  41.  Call RegWriteValue(sP2&sV2,s,1)
  42.  
  43.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  44.  Call Logoff() 'Required because of ActiveDestop and other stuff
  45. End Sub
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.  
  50.